Apple II 
Technical Notes 



Support 




Apple IlGS 

#96: Standard File Customization 



Written by: Dan Strnad 



November 1990 



This Technical Note discusses particulars of using custom dialog boxes for the Open and Save 
File dialog boxes and custom drawing routines to display the files and folders listed. 



About the Templates 

Volume 3 of the Apple IlGS Toolbox Reference states the following about the Open File dialog 
box template for Standard File: 

"The scroll bar item (itemS) is not used for single-file calls. For multifile calls, this 
item contains the Accept Button Definition." 

What is not stated explicitly is that, although the scroll bar item is not used for single-file calls, a 
place holder for it must be included in the dialog box template. Another particular not explicitly 
stated is that the strings used by the item templates must be Pascal strings; no listType field is 
provided in the extended list control record as was present in the List Manager's original list 
record structure. 



Custom Item Draw Procedures 

Custom item draw procedures have the rectangle in which the item is to be drawn, the List 
Manager's memrec structure corresponding to that item, and a handle to the extended list 
control record available on the stack. By including a custom item draw procedure, programs are 
able to get a handle to the extended list control record. The custom item draw procedure could 
also make the handle available to other routines, such as the dialogHook routine. With the 
handle, programs can now perform specialized operations during a standard file call, such as 
checking which item is selected before allowing the user to cancel. The code fragment below 
(from DTS Apple II Sample Code #18, AccessPriv) illustrates the use of SFPGetFile2 with a 
custom item draw routine. 

static char SaveStr[] = "\pSave"; 
static char OpenStr[] = "\pOpen"; 
static char CloseStr[] = "\pClose"; 
static char DriveStr[] = "\pDrive"; 
static char CancelStr[] = "\pCancel"; 
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static char FolderStr[] = "\pNew Folder"; 
static char AcceptStr[] = "\pAccept"; 
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ItemTemplate OpenBut640 = 



ItemTemplate CloseBut640 = 



ItemTemplate NextBut640 = 



ItemTemplate CancelBut640 



ItemTemplate Scrolls 40 = 



ItemTemplate Path640 = 



ItemTemplate Files640 = 



ItemTemplate Prompts 40 = 



{1, 

61,265,73,375, 

buttonltem, 

OpenStr , 

0, 

0, 

OL}; 
{2, 

79,265,91,375, 

buttonltem, 

CloseStr, 

0, 

0, 

OL}; 
{3, 

25,265,37,375, 

buttonltem, 

DriveStr, 

0, 

0, 

OL}; 
{4, 

97,265,109,375, 

buttonltem, 

CancelStr, 

0, 

0, 

OL}; 
{5, 

43,265,55,375, 

buttonltem, 

AcceptStr, 

0, 

0, 

OL}; 

{6, 

12, 15,24,395, 

userltem, 

OL, 

0, 

0, 

OL}; 
{7, 

25,18,107,215, 

userltem + itemDisable, 

OL, 

0, 

0, 

OL}; 
{8, 

3,15,12,395, 

statText + itemDisable, 

OL, 

0, 

0, 

OL}; 
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* 

* myDialogHook 
* 



pascal void myDialogHook ( stripl , strip2 ) 

long stripl; 

long strip2; 

{ 

} 

* 

* CustomltemDraw 
* 



pascal void CustomltemDraw ( itemDrawPtr) 
Pointer itemDrawPtr; 
{ 



static unsigned int flag, dbr; 
byte StringCount; 
char *ItemPascalString; 
Word ItemFileType ; 

Long ItemAuxType; 
Rect *TheItemRectPtr ; 

MemRec *TheMemRecPtr; 
CtlRecHndl TheSFListControlHndl; 
Point MyOldPenPos , 

MyNewPenPos ; 



/* result, data bank register value */ 



static char FileString[ ] = "xxxx yyyyyyyy "; 



/* save our data bank and set current to global page */ 
dbr = SaveDB ( ) ; 

/* Get the Rect from High on the Stack */ 

TheltemRectPtr = (Rect *)(*((long *)((( long) & itemDrawPtr )+ 36L))); 

/* save old pen position */ 
GetPen ( SMyOldPenPos ) ; /* Set our pen position */ 

MyNewPenPos . h = TheItemRectPtr->hl + 5; 
MyNewPenPos .V = TheItemRectPtr->v2 -2; 

MoveTo (MyNewPenPos ) ; /* relocate the pen */ 

/* get our member record; this is just to reveal where it is on the stack */ 
TheMemRecPtr = (MemRec *)(*((long *)((( long) & itemDrawPtr )+ 32L))); 

/* get the list cntrol handle; ditto */ 

TheSFListControlHndl = (CtlRecHndl )(*(( long *)((( long) & itemDrawPtr )+ 28L))); 

StringCount = (byte) *itemDrawPtr ; /* get the string length */ 

ItemPascalString = itemDrawPtr; /* set our user string */ 

ItemFileType = *(Word * ) ( itemOrawPtr+StringCount+lL) ; /* get our FileType */ 

ItemAuxType = *(Long * ) ( itemDrawPtr+StringCount+3L) ; /* get our AuxType */ 

/* format for display */ 

sprintf (FileString, "%.4x-%.81x ", ItemFileType, ItemAuxType) ; 

c2pstr (FileString) ; /* turn it into a P string */ 

Drawstring ( FileString ) ; /* Draw it */ 

Drawstring ( ItemPascalString) ; /* catenate File name to the other 

info */ 

FrameRect ( TheltemRectPtr ) ; 

MoveTo ( MyOldPenPos ) ; /* return the pen to starting 

position */ 

RestoreDB(dbr ) ; /* restore our data bank */ 
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* 

* ChooseFolder 

* presents user with dialog to select folder to show/set privileges of 
* 



void SomeProc ( ) 
{ 

DialogTemplate GetDialog640; 



GetDialog640 , 
GetDialog640 , 
GetDialog640 . 
GetDialog640 , 
GetDialog640. 
GetDialog640 , 
GetDialog640 , 
GetDialog640 , 
GetDialog640 . 
GetDialog640 . 
GetDialog640, 
GetDialog640, 
GetDialog640 . 
GetDialog640. 
GetDialog640. 



dtBoundsRect . vl 
dtBoundsRect . hi 
dtBoundsRect . v2 
dtBoundsRect . h2 
dtVisible = -1; 
dtRefCon = OL; 
dtIteinList[0] = 
dtltemList [ 1 ] = 
dtItemList[2 ] = 
dtItemList[3] = 
dtItemList[4] = 
dtIteitiList[5] = 
dtIteinList[6] = 
dtIteinList[7] = 
dtIteinList[8] = 



= 0; 
= 0; 
= 114; 
= 400; 



&OpenBut640; 

&CloseBut640; 
&NextBut640; 
&CancelBut640; 
&Scroll640; 
&Path64 0; 
&Files640; 
&Prompt640 ; 
OL; 



SFPGetFile2( /* user selection of folder to get/set privs of */ 
120, 53, 
CustomltemDraw, 
ref IsPointer , 
prompt , 
OL, 
OL, 

&GetDialog640, 
myDialogHook , 
SmyReply 



Further Reference 

• Apple IIgs Toolbox Reference, Volumes 1 & 3 

• DTS Apple II Sample Code #18, AccessPriv 
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